home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / gfx / fract / fu1_61.lha / Formulas / Border.Form < prev    next >
Text File  |  1994-05-13  |  363b  |  39 lines
  1. Border
  2. {
  3.     {
  4.         x1=-2.0
  5.         x2= 2.0
  6.         y1=-2.0
  7.         y2= 2.0
  8.         par1.r=-0.3
  9.         par1.i=0.0
  10.         par2.r=-1.2
  11.         par2.i=0.5
  12.         par3.r=4.0
  13.         par3.i=0.0
  14.         bailout=2.0
  15.     }
  16.     {
  17.         c=pixel
  18.         z=pixel
  19.     }
  20.     {
  21.         z=pow(z,par3)
  22.         z=par1/z
  23.         z2=c*c
  24.         z2=z2*c
  25.         z2=par2/z2
  26.         z=z*z2
  27.         z=z2+z
  28.         w=abs(z)
  29.     }
  30.     {
  31.         w>bailout
  32.     }
  33.     {
  34.         Par1 - Divisor of z
  35.         Par2 - Divisor of z2
  36.         Par3 - Exponent of z
  37.     }
  38. }
  39.